ARRAY D1(1601),D2(1867),D3(2053),D4(2251),D5(347),D6(113),D7(37);
VARIABLE /Z,X,Y,/DIS,/SQDIS,/R,
/AA,/BB,/CC,/DD,/EE,/FF,/GG,/HH;
SRATE←25000;MAG←512/SRATE;SPEED←2;REVINIT←1;R←0;
COMPILE;
INSTRUMENT REV;
REV1(R,1601,.802,D1);
REV1(R,1867,.773,D2);
REV1(R,2053,.753,D3);
REV1(R,2251,.733,D4);
REV2(U1+U2+U3+U4,347,.7,D5);
REV2(U5,113,.7,D6);
REV2(U6,37,.7,D7);
R←0;
OUTA←OUTA+U7;
END;
INSTRUMENT VLN;
OSCIL(P11*P4*MAG,MAG/P2,P15);
OSCIL(1,P12*MAG,F1);
	INTRP(P7*P5*MAG,P8*P5*MAG,P15);
OSCIL(U3+(P13*U2*U3),P5*MAG+U1*U2,F1);
OSCIL(P3,MAG/P2,P14);
ZOSCIL(U5*P9,P4*MAG+U4+U1*U2,F1);
ZOSCIL(U5*P10,P6*MAG+U4+U1*U2,F1);
OUTA←OUTA+(U6+U7)*.5;
R←R+(U6+U7)*.05;
END;
FINISH;